
capture log close
log using $data/EDS_13_summary_expenditures, text replace

clear
clear matrix
clear mata
set mem 2g
set matsize 800
set more off
set maxvar 20000
set trace off
set varabbrev off

global data 		"W:\mobi_s\mobi_search\replication\datasets"
global output 		"W:\mobi_s\mobi_search\replication\results"



		use $orig/BA_Statistik_Summary, clear

		gen jahr=.
		tostring monat,replace
		tostring jahr,replace
		replace jahr=substr(monat,1,4)
		destring monat, replace
		destring jahr, replace

		sort ba jahr monat
		by ba jahr: egen avg_stock = mean(best_ges)
		bys ba jahr: keep if _n==1
		keep ba jahr avg_stock
		keep if jahr==2007
		rename jahr year

		joinby ba year using $data/mobihilfen_all.dta ,unmatched(master)
		tab _merge
		drop _merge

		gen ausgaben_uebergang = (uebergang*241)	/avg_stock
		gen ausgaben_ausruestung = (ausruestung*128)/avg_stock
		gen ausgaben_fahrkosten = (fahrkosten*761) /avg_stock
		gen ausgaben_trennung = (trennung*881)/avg_stock
		gen ausgaben_umzug = (umzug*1315)/avg_stock
		gen ausgaben_reisekosten = (reisekosten*101) /avg_stock

		keep ba year ausgaben_* 
		rename ba region
		tempfile exp
		save `exp'

		use $data/data_pair, clear


		joinby region year using `exp',unmatched(master)
		tab _merge
		drop _merge
      
		gen intensity_high=0
		forvalues y=2007/2008 {
		forvalues x=1/487 {
			qui sum log_intensity_mobi if county_pair_`x'==1 & year==`y'
			qui replace intensity_high=1 if log_intensity_mobi>r(mean) & county_pair_`x'==1  & year==`y'
		}
		}
		
		
		#d;
		global testvar "ausgaben_ausruestung ausgaben_uebergang ausgaben_fahrkosten
		ausgaben_trennung ausgaben_umzug ausgaben_reisekosten 
		";
		#d cr
		
		bys region_pair region year: keep if _n==1
	    
		
		foreach type in  $testvar  {
	 	
			sum `type' if intensity_high==0
			matrix m1 = r(mean)
			
			sum `type' if intensity_high==1
			matrix m2 = r(mean)
			
			ttest `type', by(intensity_high)
			matrix p=r(p)
			
			matrix d_`type'=m1,m2,p
		
		}/*type*/
		
		
		
		#delimit;
		matrix d=
		d_ausgaben_ausruestung \
		d_ausgaben_uebergang \
		d_ausgaben_fahrkosten \
		d_ausgaben_trennung \
		d_ausgaben_umzug \
		d_ausgaben_reisekosten 
		;
	
		matrix rownames d = 
		"Expenditures equipement" 
		"Expenditures transition" 
		"Expenditures commuting" 
		"Expenditures separation" 
		"Expenditures relocation" 
		"Expenditures travel cost"
		;
		#delimit cr

		matrix colname d = "Low-intensity" "High-intensity" "P-value"
		estout matrix(d, fmt(2)) using $data/Table_A13.tex, style(tex) replace
	
	
	
		log close	

